home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 1 / Gold Medal Software Volume 1 (Gold Medal) (1994).iso / prog / tpwprog7.arj / IAODEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-07-02  |  707 b   |  29 lines
  1. { iaodemo.pas -- Demonstrate using InAndOut DLL }
  2.  
  3. program IAODemo;
  4.  
  5. uses WinTypes, WinProcs, WinCrt, IAOUnit;
  6.  
  7. var
  8.  
  9.   Handle: THandle;
  10.  
  11. begin
  12.   Handle := LoadLibrary('INANDOUT.DLL');
  13.   if Handle < 32 then
  14.     Writeln('*** Error loading STRDLL.DLL library file ***')
  15.   else begin
  16.     Writeln('In and out demonstration');
  17.     Write('Press Enter to end program...');
  18.     Readln;
  19.     FreeLibrary(Handle)
  20.   end;
  21.   Writeln('Press Alt+F4 to close window...')
  22. end.
  23.  
  24.  
  25. {--------------------------------------------------------------
  26.   Copyright (c) 1991 by Tom Swan. All rights reserved.
  27.   Revision 1.00    Date: 5/25/1991
  28. ---------------------------------------------------------------}
  29.